#!/usr/bin/perl -w

use Modern::Perl;
use Math::Trig;

if ($_ = <STDIN>) {
  chomp;
  print "PI * r^2 = ".pi." ".$_."^2 = ".(pi * $_ * $_)."\n";
}

=head1 NAME areaCirculo.pl

=head1 SYNOPSIS

  ./areaCirculo.pl

=head1 DESCRIPTION

  Calcula el area de un circulo de radio leido por teclado.
